home *** CD-ROM | disk | FTP | other *** search
/ Designer's Club 1996 December / Designer's Club 1996 December.iso / mac / Idea Source / MAIN.DIR / 00021.ls < prev    next >
Encoding:
Text File  |  1996-11-06  |  907 b   |  34 lines
  1. on mouseDown
  2.   global slider
  3.   repeat while the mouseDown
  4.     set oldh to the locH of sprite 48
  5.     set newh to oldh
  6.     set the locH of sprite 48 to constrainH(47, the mouseH)
  7.     set newh to the locH of sprite 48
  8.     set diff to newh - oldh
  9.     set slider to slider + diff
  10.     if (slider > 0) and (slider < 10) then
  11.       set the soundLevel to 0
  12.     end if
  13.     if (slider > 11) and (slider < 20) then
  14.       set the soundLevel to 1
  15.     end if
  16.     if (slider > 21) and (slider < 40) then
  17.       set the soundLevel to 2
  18.     end if
  19.     if (slider > 41) and (slider < 60) then
  20.       set the soundLevel to 3
  21.     end if
  22.     if (slider > 61) and (slider < 80) then
  23.       set the soundLevel to 5
  24.     end if
  25.     if (slider > 81) and (slider < 100) then
  26.       set the soundLevel to 6
  27.     end if
  28.     if (slider > 101) and (slider < 124) then
  29.       set the soundLevel to 7
  30.     end if
  31.     updateStage()
  32.   end repeat
  33. end
  34.